// Patron J2EE
// Service Locator
// 
// Roles:
//
// cl -> client
// sl -> serviceLocator
// bs -> bussinessService
// ic -> initialContext
// sf -> serviceFactory


getdb($1)
DP[cl,sl,bs,ic,sf] = {uses[cl,sl]; uses[cl,bs]; uses[cl,sf]; uses[sl,sf]; uses[sl,ic];  uses[ic,sf] ; uses[sf,bs] }

// Se excluyen las librerias del API Java API 
DP_java = DP [&0 =~ "java.*"] 
DP = DP - DP_java
DP_java = DP [&1 =~ "java.*"]
DP = DP - DP_java
DP_java = DP [&2 =~ "java.*"]
DP = DP - DP_java
DP_java = DP [&3 =~ "java.*"]
DP = DP - DP_java

putdb($2,{"DP"})
